home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / BINARY TO TAPE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  43 lines
  1. 1  REM  *************************
  2. 2  REM  *   BINARY TO TAPE      *
  3. 3  REM  *    BASIC: APPLESOFT   *
  4. 4  REM  *   AUTHOR: PAUL IRWIN  *
  5. 5  REM  *  WRITTEN: JUNE, 1981  *
  6. 6  REM  *                       *
  7. 7  REM  *                       *
  8. 8  REM  *                       *
  9. 9  REM  *************************
  10. 10  REM 
  11. 100  DEF  FN HI(X) =  INT(X/256)
  12. 110  DEF  FN LO(X) = X -256 * INT(X/256)
  13. 1000  TEXT : SPEED= 255: HOME 
  14. 1020  PRINT "TAPE COPY UTILITY"
  15. 1030  PRINT : PRINT "SAVES A BINARY FILE TO TAPE"
  16. 1032  PRINT : PRINT 
  17. 1040  INPUT "START,END ADDRESSES ";S,E
  18. 1050  IF E = 0  THEN 32767
  19. 1060  GOSUB 5000
  20. 1070  PRINT : PRINT "START RECORDER THEN PRESS-A KEY ";: GET A$
  21. 1080  PRINT : PRINT "WRITING TO TAPE ...";
  22. 1090  CALL 65229
  23. 1100  PRINT "ALL DONE!": PRINT 
  24. 1150  PRINT "OK.  NOW TO VERIFY THHE TAPE"
  25. 1160  PRINT "PLAYBACK AND PRESS-A-KEY ";
  26. 1170  GOSUB 5000: GET A$
  27. 1172  PRINT : PRINT "READING FROM TAPE ...";
  28. 1180 CH =  PEEK(36): CALL 65277
  29. 1190  IF CH =  PEEK(36)  THEN 1250
  30. 1200  PRINT : PRINT "TRY AGAIN?(Y/N): ";
  31. 1210  GET A$: IF A$ < >"Y"  AND A$ < >"N"  THEN 1210
  32. 1220  PRINT A$: PRINT : IF A$ = "Y"  THEN 1040
  33. 1230  GOTO 32767
  34. 1250  PRINT "OK": PRINT : PRINT "ANOTHER?(Y/N): ";
  35. 1260  GET A$: IF A$ < >"Y"  AND A$ < >"N"  THEN 1260
  36. 1270  PRINT A$: PRINT : IF A$ = "Y"  THEN 1040
  37. 1280  GOTO 32767
  38. 5000  POKE 60, FN LO(S)
  39. 5010  POKE 61, FN HI(S)
  40. 5020  POKE 62, FN LO(E)
  41. 5030  POKE 63, FN HI(E)
  42. 5040  RETURN 
  43. 32767  END